#!/usr/bin/perl -w

print  "Enter first number:\n";
chomp($number1 = <STDIN>);

print  "Enter second number:\n";
chomp($number2 = <STDIN>);

$result = $number1 * $number2;
print "The result:\n$number1 * $number2 = $result.\n";
